//This example shows how to use a LIST to pack a series of methods

sub myMethod01(optional name as string, optional lname as string)
	dim fullname as string

	fullname = name & " " & lname
	msgbox("Fullname1: " & fullname)
end sub
sub myMethod02(optional name as string, optional lname as string)
	dim fullname as string
	
	fullname = lname & " " & name
	msgbox("Fullname2: " & fullname)
end sub

sub Main()

	dim myMethodClone as symbol	
	dim functionList as list

	functionList = list( getPointer(myMethod01),  getPointer(myMethod02))
	functionList["myMethod01"].name = "Jose"
	functionList["myMethod01"].lname = "Cuevas"
	functionList["myMethod02"].name = "Lourdes"
	functionList["myMethod02"].lname = "Perez"

	functionList["myMethod01"]()
	functionList["myMethod02"]()

	functionList["myMethod01"].name = functionList["myMethod02"].name
	myMethod01()

end sub
